From: Katsumi Yamaoka Date: Mon, 6 Feb 2012 22:52:55 +0000 (+0000) Subject: gnus-sum.el (gnus-summary-show-thread): next-single-char-property-change may return... X-Git-Tag: archive/raspbian/1%29.2+1-2+rpi1~1^2~324^2~895 X-Git-Url: https://dgit.raspbian.org/%22http:/www.example.com/cgi/%22https:/www.github.com/%22bookmarks:///%22http:/www.example.com/cgi/%22https:/www.github.com/%22bookmarks:/?a=commitdiff_plain;h=d651ccb9e65910af158a859ad1ca6b7d2be528fd;p=emacs.git gnus-sum.el (gnus-summary-show-thread): next-single-char-property-change may return nil in XEmacs. --- diff --git a/lisp/gnus/ChangeLog b/lisp/gnus/ChangeLog index dc2ccbbb2b8..9c1e77cb3e2 100644 --- a/lisp/gnus/ChangeLog +++ b/lisp/gnus/ChangeLog @@ -1,3 +1,8 @@ +2012-02-06 Katsumi Yamaoka + + * gnus-sum.el (gnus-summary-show-thread): + next-single-char-property-change may return nil in XEmacs. + 2012-02-06 Lars Ingebrigtsen * gnus-sum.el (gnus-handle-ephemeral-exit): Allow exiting from Gnus diff --git a/lisp/gnus/gnus-sum.el b/lisp/gnus/gnus-sum.el index c7f80ec1512..c17f16ef212 100644 --- a/lisp/gnus/gnus-sum.el +++ b/lisp/gnus/gnus-sum.el @@ -11579,7 +11579,10 @@ Returns nil if no thread was there to be shown." (beg (progn (beginning-of-line) (if (bobp) (point) (1- (point))))) (eoi (when end (if (fboundp 'next-single-char-property-change) - (next-single-char-property-change end 'invisible) + (if (featurep 'xemacs) + (or (next-single-char-property-change end 'invisible) + (point-max)) + (next-single-char-property-change end 'invisible)) (while (progn (end-of-line 2) (and (not (eobp))